-- card: 2982 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2715
-- name: Master


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=3 top=23 right=202 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Control


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=15 top=149 right=172 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=17 top=75 right=107 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 1002 / 1002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New
----- HyperTalk script -----
on mouseUp
  go to first card
  domenu "Copy Card"
  ask "Name your painting..."
  put it into pictitle
  set lockScreen to true
  if it is "" then exit mouseUp
  go to last card
  domenu "Paste Card"
  put "" into field hidehelp1
  put it into first line of card field "Control"
  put the short date into last line of card field "Control"
  set name of this card to "UserCard"
  push card
  go to second card
  domenu "Copy Card"
  pop card
  domenu "Paste Card"
  put "" into field hidehelp1
  put it into first line of card field "Control"
  put the short date into last line of card field "Control"
  set name of this card to "UserCard"
  go to first card
  put 0 into it
  repeat the number of cards/2
    add 1 to it
    put it into field "Index Number"
    go to next card
    put it & "B" into field "Index Number"
    go to next card
  end repeat
  set lockScreen to false
  find pictitle
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=111 right=145 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 31975 / 31975
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus
----- HyperTalk script -----
on mouseUp
  global temp, menu1
  if visible of bkgnd field "toggle" is false then put "true" into menu1
  if visible of bkgnd field "toggle" is true then put "false" into menu1
  if temp is "gone" then show menuBar
  if temp is "gone" then show bkgnd field "toggle"
  if temp is "gone" then put "here" into temp
  if menu1 is "true" then exit mouseUp
  hide menuBar
  hide bkgnd field toggle
  put "gone" into temp
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=55 top=115 right=141 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=94 top=115 right=141 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=58 top=78 right=104 bottom=78
-- title width / last selected line: 65535
-- icon id / first selected line: -15989 / 49547
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  get the name of this card
  if it contains "Master" then answer "You can't delete the Master cards." with "OK"
  if it is "OK" then exit mouseup
  answer "Are you sure?" with "No Way!" or "Do it"
  if it is "No Way!" then exit mouseUp
  get first line of card field "Control"
  domenu "delete card"
  find it
  domenu "delete card"
  go to first card
  put 0 into it
  repeat the number of cards/2
    add 1 to it
    put it into field "Index Number"
    go to next card
    put it & "B" into field "Index Number"
    go to next card
  end repeat
  set lockScreen to false
end mouseUp



-- part 20 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=203 top=24 right=65 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidetitle


-- part 23 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=90 top=79 right=105 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 17794 / 17794
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play boing
  answer "Make your choice..." with "Forget It" or "Chooser" or "Print"
  if it is "Forget It" then exit mouseUp
  if It is "Chooser" then domenu "Chooser"
  if it is "Chooser" then exit mouseUp
  get first word of second line of card field control
  if it is not "Upper" then answer "You must print from the Upper half" with "OK"
  if it is "OK" then exit mouseUp
  show msg
  put "Don't forget to set the dialog box for:"
  wait 3 seconds
  put quote&"Print full size cards,"&quote&" and "&quote& "No space between cards."&quote
  wait 3 seconds
  hide bkgnd field "index number"
  hide card button help
  hide card button home
  hide card button delete
  hide card button print
  hide card button new
  hide card button prev
  hide card button next
  hide card button menus
  hide card field control
  open printing with dialog
  push card
  print card
  go to next card
  hide card button help
  hide card button home
  hide card button delete
  hide card button print
  hide card button new
  hide card button prev
  hide card button next
  hide card button menus
  hide card field control
  print card
  pop card
  close printing
  show bkgnd field "Index Number"
  put "All done, Boss."
  wait 3 seconds
  hide msg
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=90 top=144 right=179 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  hide bkgnd field hidehelp1
  hide bkgnd field hidehelp2
  wait until the mouse is down
  answer "Would you like to print the help?" with "Chooser" or "Yes" or "No"
  if it is "Chooser" then domenu "Chooser"
  if it is "Yes" then print card
  show bkgnd field hidehelp1
  show bkgnd field hidehelp2
end mouseUp




-- part contents for card part 4
----- text -----
F.P.P. version 1.0
Upper Half








9/20/87


-- part contents for background part 6
----- text -----
1

-- part contents for background part 7
----- text -----

 Full-Page Paint is a stack that lets you create 8 1/2 by 11 images in two halves (on two cards).  The two halves will be combined during printout to form one image.

Press the Tab key to show/hide the F.P.P. control panel. Click the question mark (?) in the control panel to see more help.  Press Option-Tab to bring up the Paint Tools palette.






Commercial sale of this stack is prohibited.  All rights reserved.